home *** CD-ROM | disk | FTP | other *** search
/ Long Ban 3 / Long Ban 3 - Disc 2.iso / mac / DISK2 / DATA / cont2.Dxr / 00009.ls < prev    next >
Encoding:
Text File  |  1997-03-22  |  663 b   |  42 lines
  1. on exitFrame
  2.   go(the frame)
  3. end
  4.  
  5. on wait t
  6.   set wk to the ticks + (t * 60)
  7.   repeat while wk > the ticks
  8.     nothing()
  9.   end repeat
  10. end
  11.  
  12. on buttonaction sp
  13.   set the visible of sprite sp to 0
  14.   puppetSound("Laser.aif", 1)
  15.   updateStage()
  16.   wait(1)
  17.   set the visible of sprite sp to 1
  18.   puppetSound(0, 1)
  19.   updateStage()
  20. end
  21.  
  22. on mouseDown
  23.   set sp to the clickOn
  24.   case sp of
  25.     2:
  26.       set n to getphotonumber(the mouseH, the mouseV)
  27.       if n <> 0 then
  28.         go(n + 10)
  29.       end if
  30.     4:
  31.       vslidermove()
  32.     5:
  33.       buttonaction(5)
  34.       termslider()
  35.       go(1, "menu2")
  36.     6:
  37.       buttonaction(6)
  38.       termslider()
  39.       quit()
  40.   end case
  41. end
  42.